home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / arvis1 / trainsma.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-10-08  |  50.5 KB  |  1,526 lines
  1. VERSION 5.00
  2. Object = "{27395F88-0C0C-101B-A3C9-08002B2F49FB}#1.1#0"; "PICCLP32.OCX"
  3. Begin VB.Form TrainFrm 
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "QuadBallTraining"
  6.    ClientHeight    =   9930
  7.    ClientLeft      =   0
  8.    ClientTop       =   0
  9.    ClientWidth     =   12855
  10.    ClipControls    =   0   'False
  11.    ControlBox      =   0   'False
  12.    BeginProperty Font 
  13.       Name            =   "Times New Roman"
  14.       Size            =   8.25
  15.       Charset         =   0
  16.       Weight          =   400
  17.       Underline       =   0   'False
  18.       Italic          =   0   'False
  19.       Strikethrough   =   0   'False
  20.    EndProperty
  21.    Icon            =   "TrainSmallFrm.frx":0000
  22.    LinkTopic       =   "Form1"
  23.    MaxButton       =   0   'False
  24.    MinButton       =   0   'False
  25.    Moveable        =   0   'False
  26.    ScaleHeight     =   9930
  27.    ScaleWidth      =   12855
  28.    ShowInTaskbar   =   0   'False
  29.    StartUpPosition =   2  'CenterScreen
  30.    WindowState     =   2  'Maximized
  31.    Begin VB.PictureBox StatBox 
  32.       Appearance      =   0  'Flat
  33.       AutoSize        =   -1  'True
  34.       BackColor       =   &H00C000C0&
  35.       BorderStyle     =   0  'None
  36.       BeginProperty Font 
  37.          Name            =   "MS Sans Serif"
  38.          Size            =   8.25
  39.          Charset         =   0
  40.          Weight          =   400
  41.          Underline       =   0   'False
  42.          Italic          =   0   'False
  43.          Strikethrough   =   0   'False
  44.       EndProperty
  45.       ForeColor       =   &H80000008&
  46.       Height          =   2805
  47.       Left            =   0
  48.       ScaleHeight     =   2805
  49.       ScaleWidth      =   3570
  50.       TabIndex        =   24
  51.       Top             =   0
  52.       Visible         =   0   'False
  53.       Width           =   3570
  54.       Begin VB.Label OK 
  55.          AutoSize        =   -1  'True
  56.          BackStyle       =   0  'Transparent
  57.          Caption         =   "Continue"
  58.          BeginProperty Font 
  59.             Name            =   "Times New Roman"
  60.             Size            =   36
  61.             Charset         =   0
  62.             Weight          =   700
  63.             Underline       =   0   'False
  64.             Italic          =   0   'False
  65.             Strikethrough   =   0   'False
  66.          EndProperty
  67.          ForeColor       =   &H00008000&
  68.          Height          =   825
  69.          Left            =   7605
  70.          TabIndex        =   34
  71.          Tag             =   "No"
  72.          Top             =   7380
  73.          Width           =   2805
  74.       End
  75.       Begin VB.Label HighTime 
  76.          AutoSize        =   -1  'True
  77.          BackStyle       =   0  'Transparent
  78.          Caption         =   "SCORE"
  79.          BeginProperty Font 
  80.             Name            =   "Times New Roman"
  81.             Size            =   36
  82.             Charset         =   0
  83.             Weight          =   700
  84.             Underline       =   0   'False
  85.             Italic          =   0   'False
  86.             Strikethrough   =   0   'False
  87.          EndProperty
  88.          ForeColor       =   &H0000FFFF&
  89.          Height          =   825
  90.          Left            =   4185
  91.          TabIndex        =   40
  92.          Top             =   4230
  93.          Width           =   2490
  94.       End
  95.       Begin VB.Label AllTime 
  96.          AutoSize        =   -1  'True
  97.          BackStyle       =   0  'Transparent
  98.          Caption         =   "SCORE"
  99.          BeginProperty Font 
  100.             Name            =   "Times New Roman"
  101.             Size            =   36
  102.             Charset         =   0
  103.             Weight          =   700
  104.             Underline       =   0   'False
  105.             Italic          =   0   'False
  106.             Strikethrough   =   0   'False
  107.          EndProperty
  108.          ForeColor       =   &H0000FFFF&
  109.          Height          =   825
  110.          Left            =   4185
  111.          TabIndex        =   39
  112.          Top             =   3015
  113.          Width           =   2490
  114.       End
  115.       Begin VB.Label Label6 
  116.          Alignment       =   1  'Right Justify
  117.          BackStyle       =   0  'Transparent
  118.          Caption         =   "Highest Time"
  119.          BeginProperty Font 
  120.             Name            =   "Times New Roman"
  121.             Size            =   27.75
  122.             Charset         =   0
  123.             Weight          =   400
  124.             Underline       =   0   'False
  125.             Italic          =   0   'False
  126.             Strikethrough   =   0   'False
  127.          EndProperty
  128.          ForeColor       =   &H0000FF00&
  129.          Height          =   645
  130.          Left            =   315
  131.          TabIndex        =   38
  132.          Top             =   4320
  133.          Width           =   3480
  134.       End
  135.       Begin VB.Label Label4 
  136.          Alignment       =   1  'Right Justify
  137.          BackStyle       =   0  'Transparent
  138.          Caption         =   "Total Time"
  139.          BeginProperty Font 
  140.             Name            =   "Times New Roman"
  141.             Size            =   27.75
  142.             Charset         =   0
  143.             Weight          =   400
  144.             Underline       =   0   'False
  145.             Italic          =   0   'False
  146.             Strikethrough   =   0   'False
  147.          EndProperty
  148.          ForeColor       =   &H0000FF00&
  149.          Height          =   510
  150.          Left            =   945
  151.          TabIndex        =   37
  152.          Top             =   3105
  153.          Width           =   2850
  154.       End
  155.       Begin VB.Label Label9 
  156.          AutoSize        =   -1  'True
  157.          BackStyle       =   0  'Transparent
  158.          Caption         =   "Game Statistics"
  159.          BeginProperty Font 
  160.             Name            =   "Times New Roman"
  161.             Size            =   48
  162.             Charset         =   0
  163.             Weight          =   400
  164.             Underline       =   -1  'True
  165.             Italic          =   0   'False
  166.             Strikethrough   =   0   'False
  167.          EndProperty
  168.          ForeColor       =   &H00FFFF00&
  169.          Height          =   1095
  170.          Left            =   900
  171.          TabIndex        =   31
  172.          Top             =   270
  173.          Width           =   5985
  174.       End
  175.       Begin VB.Label TotalBounces 
  176.          AutoSize        =   -1  'True
  177.          BackStyle       =   0  'Transparent
  178.          Caption         =   "TotalBounces"
  179.          BeginProperty Font 
  180.             Name            =   "Times New Roman"
  181.             Size            =   36
  182.             Charset         =   0
  183.             Weight          =   700
  184.             Underline       =   0   'False
  185.             Italic          =   0   'False
  186.             Strikethrough   =   0   'False
  187.          EndProperty
  188.          ForeColor       =   &H0000FFFF&
  189.          Height          =   825
  190.          Left            =   4230
  191.          TabIndex        =   30
  192.          Top             =   6615
  193.          Width           =   4185
  194.       End
  195.       Begin VB.Label TopSpeed 
  196.          AutoSize        =   -1  'True
  197.          BackStyle       =   0  'Transparent
  198.          Caption         =   "TopSpeed"
  199.          BeginProperty Font 
  200.             Name            =   "Times New Roman"
  201.             Size            =   36
  202.             Charset         =   0
  203.             Weight          =   700
  204.             Underline       =   0   'False
  205.             Italic          =   0   'False
  206.             Strikethrough   =   0   'False
  207.          EndProperty
  208.          ForeColor       =   &H0000FFFF&
  209.          Height          =   825
  210.          Left            =   4185
  211.          TabIndex        =   29
  212.          Top             =   5400
  213.          Width           =   3090
  214.       End
  215.       Begin VB.Label TotalScore 
  216.          AutoSize        =   -1  'True
  217.          BackStyle       =   0  'Transparent
  218.          Caption         =   "SCORE"
  219.          BeginProperty Font 
  220.             Name            =   "Times New Roman"
  221.             Size            =   36
  222.             Charset         =   0
  223.             Weight          =   700
  224.             Underline       =   0   'False
  225.             Italic          =   0   'False
  226.             Strikethrough   =   0   'False
  227.          EndProperty
  228.          ForeColor       =   &H0000FFFF&
  229.          Height          =   825
  230.          Left            =   4185
  231.          TabIndex        =   28
  232.          Top             =   1755
  233.          Width           =   2490
  234.       End
  235.       Begin VB.Label Label8 
  236.          Alignment       =   1  'Right Justify
  237.          BackStyle       =   0  'Transparent
  238.          Caption         =   "Total Bounces"
  239.          BeginProperty Font 
  240.             Name            =   "Times New Roman"
  241.             Size            =   27.75
  242.             Charset         =   0
  243.             Weight          =   400
  244.             Underline       =   0   'False
  245.             Italic          =   0   'False
  246.             Strikethrough   =   0   'False
  247.          EndProperty
  248.          ForeColor       =   &H0000FF00&
  249.          Height          =   645
  250.          Left            =   135
  251.          TabIndex        =   27
  252.          Top             =   6705
  253.          Width           =   3660
  254.       End
  255.       Begin VB.Label Label7 
  256.          Alignment       =   1  'Right Justify
  257.          BackStyle       =   0  'Transparent
  258.          Caption         =   "Top Speed"
  259.          BeginProperty Font 
  260.             Name            =   "Times New Roman"
  261.             Size            =   27.75
  262.             Charset         =   0
  263.             Weight          =   400
  264.             Underline       =   0   'False
  265.             Italic          =   0   'False
  266.             Strikethrough   =   0   'False
  267.          EndProperty
  268.          ForeColor       =   &H0000FF00&
  269.          Height          =   555
  270.          Left            =   -90
  271.          TabIndex        =   26
  272.          Top             =   5535
  273.          Width           =   3885
  274.       End
  275.       Begin VB.Label Label5 
  276.          Alignment       =   1  'Right Justify
  277.          BackStyle       =   0  'Transparent
  278.          Caption         =   "Total Score"
  279.          BeginProperty Font 
  280.             Name            =   "Times New Roman"
  281.             Size            =   27.75
  282.             Charset         =   0
  283.             Weight          =   400
  284.             Underline       =   0   'False
  285.             Italic          =   0   'False
  286.             Strikethrough   =   0   'False
  287.          EndProperty
  288.          ForeColor       =   &H0000FF00&
  289.          Height          =   510
  290.          Left            =   900
  291.          TabIndex        =   25
  292.          Top             =   1890
  293.          Width           =   2895
  294.       End
  295.    End
  296.    Begin VB.PictureBox TitleScreen 
  297.       Appearance      =   0  'Flat
  298.       AutoSize        =   -1  'True
  299.       BackColor       =   &H0080C0FF&
  300.       BorderStyle     =   0  'None
  301.       BeginProperty Font 
  302.          Name            =   "MS Sans Serif"
  303.          Size            =   8.25
  304.          Charset         =   0
  305.          Weight          =   400
  306.          Underline       =   0   'False
  307.          Italic          =   0   'False
  308.          Strikethrough   =   0   'False
  309.       EndProperty
  310.       ForeColor       =   &H80000008&
  311.       Height          =   9045
  312.       Left            =   0
  313.       ScaleHeight     =   9045
  314.       ScaleWidth      =   8265
  315.       TabIndex        =   6
  316.       Top             =   0
  317.       Width           =   8265
  318.       Begin VB.Label Story 
  319.          Alignment       =   2  'Center
  320.          AutoSize        =   -1  'True
  321.          BackStyle       =   0  'Transparent
  322.          Caption         =   "Play Story Mode"
  323.          BeginProperty Font 
  324.             Name            =   "Times New Roman"
  325.             Size            =   27.75
  326.             Charset         =   0
  327.             Weight          =   400
  328.             Underline       =   0   'False
  329.             Italic          =   0   'False
  330.             Strikethrough   =   0   'False
  331.          EndProperty
  332.          ForeColor       =   &H00008000&
  333.          Height          =   630
  334.          Left            =   6615
  335.          TabIndex        =   44
  336.          Top             =   5805
  337.          Width           =   3675
  338.       End
  339.       Begin VB.Label Label3 
  340.          Alignment       =   2  'Center
  341.          BackStyle       =   0  'Transparent
  342.          Caption         =   "Quad-Ball Training Mode"
  343.          BeginProperty Font 
  344.             Name            =   "Times New Roman"
  345.             Size            =   36
  346.             Charset         =   0
  347.             Weight          =   700
  348.             Underline       =   0   'False
  349.             Italic          =   0   'False
  350.             Strikethrough   =   0   'False
  351.          EndProperty
  352.          ForeColor       =   &H0000FF00&
  353.          Height          =   1005
  354.          Left            =   135
  355.          TabIndex        =   36
  356.          Top             =   7875
  357.          Width           =   11805
  358.       End
  359.       Begin VB.Label Quit 
  360.          Alignment       =   2  'Center
  361.          AutoSize        =   -1  'True
  362.          BackStyle       =   0  'Transparent
  363.          Caption         =   "Quit Game"
  364.          BeginProperty Font 
  365.             Name            =   "Times New Roman"
  366.             Size            =   27.75
  367.             Charset         =   0
  368.             Weight          =   400
  369.             Underline       =   0   'False
  370.             Italic          =   0   'False
  371.             Strikethrough   =   0   'False
  372.          EndProperty
  373.          ForeColor       =   &H00008000&
  374.          Height          =   585
  375.          Left            =   6930
  376.          TabIndex        =   8
  377.          Top             =   6435
  378.          Width           =   2955
  379.       End
  380.       Begin VB.Label Start 
  381.          Alignment       =   2  'Center
  382.          AutoSize        =   -1  'True
  383.          BackStyle       =   0  'Transparent
  384.          Caption         =   "Start Game"
  385.          BeginProperty Font 
  386.             Name            =   "Times New Roman"
  387.             Size            =   27.75
  388.             Charset         =   0
  389.             Weight          =   400
  390.             Underline       =   0   'False
  391.             Italic          =   0   'False
  392.             Strikethrough   =   0   'False
  393.          EndProperty
  394.          ForeColor       =   &H00008000&
  395.          Height          =   585
  396.          Left            =   6795
  397.          TabIndex        =   7
  398.          Top             =   5220
  399.          Width           =   3225
  400.       End
  401.    End
  402.    Begin VB.PictureBox Info 
  403.       Appearance      =   0  'Flat
  404.       BackColor       =   &H0000C0C0&
  405.       ForeColor       =   &H80000008&
  406.       Height          =   9045
  407.       Left            =   10320
  408.       ScaleHeight     =   9015
  409.       ScaleWidth      =   1650
  410.       TabIndex        =   10
  411.       Top             =   0
  412.       Width           =   1680
  413.       Begin VB.Timer TimeKeeper 
  414.          Enabled         =   0   'False
  415.          Interval        =   900
  416.          Left            =   1260
  417.          Top             =   3690
  418.       End
  419.       Begin VB.Label Reset 
  420.          Alignment       =   2  'Center
  421.          AutoSize        =   -1  'True
  422.          BackStyle       =   0  'Transparent
  423.          Caption         =   "Reset"
  424.          BeginProperty Font 
  425.             Name            =   "Times New Roman"
  426.             Size            =   20.25
  427.             Charset         =   0
  428.             Weight          =   700
  429.             Underline       =   0   'False
  430.             Italic          =   0   'False
  431.             Strikethrough   =   0   'False
  432.          EndProperty
  433.          ForeColor       =   &H00008000&
  434.          Height          =   435
  435.          Left            =   360
  436.          TabIndex        =   35
  437.          Tag             =   "no"
  438.          Top             =   7110
  439.          Width           =   1005
  440.       End
  441.       Begin VB.Label HighTimeName 
  442.          Alignment       =   2  'Center
  443.          BackStyle       =   0  'Transparent
  444.          BeginProperty Font 
  445.             Name            =   "Times New Roman"
  446.             Size            =   14.25
  447.             Charset         =   0
  448.             Weight          =   700
  449.             Underline       =   0   'False
  450.             Italic          =   0   'False
  451.             Strikethrough   =   0   'False
  452.          EndProperty
  453.          ForeColor       =   &H000080FF&
  454.          Height          =   600
  455.          Left            =   90
  456.          TabIndex        =   43
  457.          Top             =   6300
  458.          Width           =   1455
  459.       End
  460.       Begin VB.Label HighestTime 
  461.          Alignment       =   2  'Center
  462.          BackStyle       =   0  'Transparent
  463.          Caption         =   "00:00:00"
  464.          BeginProperty Font 
  465.             Name            =   "Times New Roman"
  466.             Size            =   18
  467.             Charset         =   0
  468.             Weight          =   700
  469.             Underline       =   0   'False
  470.             Italic          =   0   'False
  471.             Strikethrough   =   0   'False
  472.          EndProperty
  473.          ForeColor       =   &H0000FF00&
  474.          Height          =   465
  475.          Left            =   90
  476.          TabIndex        =   42
  477.          Top             =   5895
  478.          Width           =   1455
  479.       End
  480.       Begin VB.Label Label10 
  481.          Alignment       =   2  'Center
  482.          Appearance      =   0  'Flat
  483.          BackColor       =   &H80000005&
  484.          BackStyle       =   0  'Transparent
  485.          Caption         =   "Longest Time Total"
  486.          BeginProperty Font 
  487.             Name            =   "Times New Roman"
  488.             Size            =   14.25
  489.             Charset         =   0
  490.             Weight          =   400
  491.             Underline       =   0   'False
  492.             Italic          =   0   'False
  493.             Strikethrough   =   0   'False
  494.          EndProperty
  495.          ForeColor       =   &H0000FFFF&
  496.          Height          =   645
  497.          Left            =   90
  498.          TabIndex        =   41
  499.          Top             =   5310
  500.          Width           =   1455
  501.          WordWrap        =   -1  'True
  502.       End
  503.       Begin VB.Shape Shape6 
  504.          BorderColor     =   &H000080FF&
  505.          Height          =   1680
  506.          Left            =   90
  507.          Top             =   5265
  508.          Width           =   1455
  509.       End
  510.       Begin VB.Image InfoArea 
  511.          Height          =   9075
  512.          Left            =   -45
  513.          Stretch         =   -1  'True
  514.          Top             =   0
  515.          Width           =   1770
  516.       End
  517.       Begin VB.Label HighName 
  518.          Alignment       =   2  'Center
  519.          BackStyle       =   0  'Transparent
  520.          BeginProperty Font 
  521.             Name            =   "Times New Roman"
  522.             Size            =   14.25
  523.             Charset         =   0
  524.             Weight          =   700
  525.             Underline       =   0   'False
  526.             Italic          =   0   'False
  527.             Strikethrough   =   0   'False
  528.          EndProperty
  529.          ForeColor       =   &H000080FF&
  530.          Height          =   600
  531.          Left            =   90
  532.          TabIndex        =   33
  533.          Top             =   4500
  534.          Width           =   1455
  535.       End
  536.       Begin VB.Label HighestScore 
  537.          Alignment       =   2  'Center
  538.          BackStyle       =   0  'Transparent
  539.          Caption         =   "0"
  540.          BeginProperty Font 
  541.             Name            =   "Times New Roman"
  542.             Size            =   20.25
  543.             Charset         =   0
  544.             Weight          =   700
  545.             Underline       =   0   'False
  546.             Italic          =   0   'False
  547.             Strikethrough   =   0   'False
  548.          EndProperty
  549.          ForeColor       =   &H0000FF00&
  550.          Height          =   465
  551.          Left            =   90
  552.          TabIndex        =   32
  553.          Top             =   4095
  554.          Width           =   1455
  555.       End
  556.       Begin VB.Label Label2 
  557.          Alignment       =   2  'Center
  558.          Appearance      =   0  'Flat
  559.          BackColor       =   &H80000005&
  560.          BackStyle       =   0  'Transparent
  561.          Caption         =   "High Score"
  562.          BeginProperty Font 
  563.             Name            =   "Times New Roman"
  564.             Size            =   14.25
  565.             Charset         =   0
  566.             Weight          =   400
  567.             Underline       =   0   'False
  568.             Italic          =   0   'False
  569.             Strikethrough   =   0   'False
  570.          EndProperty
  571.          ForeColor       =   &H0000FFFF&
  572.          Height          =   330
  573.          Left            =   90
  574.          TabIndex        =   23
  575.          Top             =   3870
  576.          Width           =   1455
  577.          WordWrap        =   -1  'True
  578.       End
  579.       Begin VB.Shape Shape4 
  580.          BorderColor     =   &H00FFFF00&
  581.          Height          =   1320
  582.          Left            =   90
  583.          Top             =   3870
  584.          Width           =   1455
  585.       End
  586.       Begin VB.Label LifeTxt 
  587.          Alignment       =   2  'Center
  588.          BackStyle       =   0  'Transparent
  589.          BeginProperty Font 
  590.             Name            =   "Times New Roman"
  591.             Size            =   13.5
  592.             Charset         =   0
  593.             Weight          =   700
  594.             Underline       =   0   'False
  595.             Italic          =   0   'False
  596.             Strikethrough   =   0   'False
  597.          EndProperty
  598.          ForeColor       =   &H0000FFFF&
  599.          Height          =   285
  600.          Index           =   1
  601.          Left            =   1080
  602.          TabIndex        =   13
  603.          Top             =   2565
  604.          Width           =   375
  605.       End
  606.       Begin VB.Label LifeTxt 
  607.          Alignment       =   2  'Center
  608.          BackStyle       =   0  'Transparent
  609.          BeginProperty Font 
  610.             Name            =   "Times New Roman"
  611.             Size            =   13.5
  612.             Charset         =   0
  613.             Weight          =   700
  614.             Underline       =   0   'False
  615.             Italic          =   0   'False
  616.             Strikethrough   =   0   'False
  617.          EndProperty
  618.          ForeColor       =   &H0000FF00&
  619.          Height          =   285
  620.          Index           =   2
  621.          Left            =   630
  622.          TabIndex        =   12
  623.          Top             =   2565
  624.          Width           =   375
  625.       End
  626.       Begin VB.Label LifeTxt 
  627.          Alignment       =   2  'Center
  628.          BackStyle       =   0  'Transparent
  629.          BeginProperty Font 
  630.             Name            =   "Times New Roman"
  631.             Size            =   13.5
  632.             Charset         =   0
  633.             Weight          =   700
  634.             Underline       =   0   'False
  635.             Italic          =   0   'False
  636.             Strikethrough   =   0   'False
  637.          EndProperty
  638.          ForeColor       =   &H000000FF&
  639.          Height          =   285
  640.          Index           =   3
  641.          Left            =   180
  642.          TabIndex        =   11
  643.          Top             =   2565
  644.          Width           =   375
  645.       End
  646.       Begin VB.Shape ScoreBox 
  647.          Height          =   825
  648.          Left            =   90
  649.          Top             =   -5000
  650.          Width           =   1410
  651.       End
  652.       Begin VB.Label ScoreLable 
  653.          Alignment       =   2  'Center
  654.          Appearance      =   0  'Flat
  655.          BackColor       =   &H80000005&
  656.          BackStyle       =   0  'Transparent
  657.          Caption         =   "Score"
  658.          BeginProperty Font 
  659.             Name            =   "Times New Roman"
  660.             Size            =   15.75
  661.             Charset         =   0
  662.             Weight          =   400
  663.             Underline       =   0   'False
  664.             Italic          =   0   'False
  665.             Strikethrough   =   0   'False
  666.          EndProperty
  667.          ForeColor       =   &H0000FFFF&
  668.          Height          =   420
  669.          Left            =   90
  670.          TabIndex        =   22
  671.          Top             =   90
  672.          Width           =   1410
  673.       End
  674.       Begin VB.Label Score 
  675.          Alignment       =   2  'Center
  676.          BackStyle       =   0  'Transparent
  677.          Caption         =   "0"
  678.          BeginProperty Font 
  679.             Name            =   "Times New Roman"
  680.             Size            =   20.25
  681.             Charset         =   0
  682.             Weight          =   700
  683.             Underline       =   0   'False
  684.             Italic          =   0   'False
  685.             Strikethrough   =   0   'False
  686.          EndProperty
  687.          ForeColor       =   &H000000FF&
  688.          Height          =   465
  689.          Left            =   90
  690.          TabIndex        =   21
  691.          Top             =   405
  692.          Width           =   1410
  693.       End
  694.       Begin VB.Shape TimeBox 
  695.          BackColor       =   &H0000FF00&
  696.          BorderColor     =   &H0000FF00&
  697.          Height          =   1005
  698.          Left            =   90
  699.          Top             =   945
  700.          Width           =   1410
  701.       End
  702.       Begin VB.Label TimeLabel 
  703.          Alignment       =   2  'Center
  704.          Appearance      =   0  'Flat
  705.          BackColor       =   &H80000005&
  706.          BackStyle       =   0  'Transparent
  707.          Caption         =   "Time"
  708.          BeginProperty Font 
  709.             Name            =   "Times New Roman"
  710.             Size            =   15.75
  711.             Charset         =   0
  712.             Weight          =   400
  713.             Underline       =   0   'False
  714.             Italic          =   0   'False
  715.             Strikethrough   =   0   'False
  716.          EndProperty
  717.          ForeColor       =   &H0000FFFF&
  718.          Height          =   420
  719.          Left            =   90
  720.          TabIndex        =   20
  721.          Top             =   945
  722.          Width           =   1410
  723.       End
  724.       Begin VB.Label TimeSoFar 
  725.          Alignment       =   2  'Center
  726.          BackStyle       =   0  'Transparent
  727.          Caption         =   "00:00:00"
  728.          BeginProperty Font 
  729.             Name            =   "Times New Roman"
  730.             Size            =   12
  731.             Charset         =   0
  732.             Weight          =   700
  733.             Underline       =   0   'False
  734.             Italic          =   0   'False
  735.             Strikethrough   =   0   'False
  736.          EndProperty
  737.          ForeColor       =   &H000000FF&
  738.          Height          =   420
  739.          Left            =   90
  740.          TabIndex        =   19
  741.          Top             =   1350
  742.          Width           =   1410
  743.       End
  744.       Begin VB.Label TotalTime 
  745.          Alignment       =   2  'Center
  746.          BackStyle       =   0  'Transparent
  747.          Caption         =   "00:00:00"
  748.          BeginProperty Font 
  749.             Name            =   "Times New Roman"
  750.             Size            =   12
  751.             Charset         =   0
  752.             Weight          =   700
  753.             Underline       =   0   'False
  754.             Italic          =   0   'False
  755.             Strikethrough   =   0   'False
  756.          EndProperty
  757.          ForeColor       =   &H000000FF&
  758.          Height          =   420
  759.          Left            =   90
  760.          TabIndex        =   18
  761.          Top             =   1665
  762.          Width           =   1410
  763.       End
  764.       Begin VB.Image Life 
  765.          Height          =   375
  766.          Index           =   1
  767.          Left            =   1080
  768.          Top             =   2520
  769.          Width           =   375
  770.       End
  771.       Begin VB.Image Life 
  772.          Height          =   375
  773.          Index           =   3
  774.          Left            =   180
  775.          Top             =   2520
  776.          Width           =   375
  777.       End
  778.       Begin VB.Shape PlanetsBox 
  779.          BorderColor     =   &H00FF8080&
  780.          Height          =   1005
  781.          Left            =   90
  782.          Top             =   2025
  783.          Width           =   1410
  784.       End
  785.       Begin VB.Label PlanetsLabel 
  786.          Alignment       =   2  'Center
  787.          Appearance      =   0  'Flat
  788.          BackColor       =   &H80000005&
  789.          BackStyle       =   0  'Transparent
  790.          Caption         =   "Planets"
  791.          BeginProperty Font 
  792.             Name            =   "Times New Roman"
  793.             Size            =   15.75
  794.             Charset         =   0
  795.             Weight          =   400
  796.             Underline       =   0   'False
  797.             Italic          =   0   'False
  798.             Strikethrough   =   0   'False
  799.          EndProperty
  800.          ForeColor       =   &H0000FFFF&
  801.          Height          =   420
  802.          Left            =   90
  803.          TabIndex        =   17
  804.          Top             =   2070
  805.          Width           =   1410
  806.       End
  807.       Begin VB.Shape Shape1 
  808.          BorderColor     =   &H00FFFFFF&
  809.          Height          =   780
  810.          Left            =   90
  811.          Top             =   90
  812.          Width           =   1410
  813.       End
  814.       Begin VB.Label CometSpeedLab 
  815.          Alignment       =   2  'Center
  816.          Appearance      =   0  'Flat
  817.          BackColor       =   &H80000005&
  818.          BackStyle       =   0  'Transparent
  819.          Caption         =   "Speed"
  820.          BeginProperty Font 
  821.             Name            =   "Times New Roman"
  822.             Size            =   14.25
  823.             Charset         =   0
  824.             Weight          =   400
  825.             Underline       =   0   'False
  826.             Italic          =   0   'False
  827.             Strikethrough   =   0   'False
  828.          EndProperty
  829.          ForeColor       =   &H0000FFFF&
  830.          Height          =   375
  831.          Left            =   45
  832.          TabIndex        =   16
  833.          Top             =   3105
  834.          Width           =   1455
  835.          WordWrap        =   -1  'True
  836.       End
  837.       Begin VB.Label CommetSpeed 
  838.          Alignment       =   1  'Right Justify
  839.          BackStyle       =   0  'Transparent
  840.          Caption         =   "0"
  841.          BeginProperty Font 
  842.             Name            =   "Times New Roman"
  843.             Size            =   15.75
  844.             Charset         =   0
  845.             Weight          =   400
  846.             Underline       =   0   'False
  847.             Italic          =   0   'False
  848.             Strikethrough   =   0   'False
  849.          EndProperty
  850.          ForeColor       =   &H000000FF&
  851.          Height          =   330
  852.          Left            =   0
  853.          TabIndex        =   15
  854.          Top             =   3420
  855.          Width           =   1005
  856.       End
  857.       Begin VB.Label LYLabel 
  858.          Alignment       =   2  'Center
  859.          BackStyle       =   0  'Transparent
  860.          Caption         =   "LY"
  861.          BeginProperty Font 
  862.             Name            =   "Times New Roman"
  863.             Size            =   15.75
  864.             Charset         =   0
  865.             Weight          =   400
  866.             Underline       =   0   'False
  867.             Italic          =   0   'False
  868.             Strikethrough   =   0   'False
  869.          EndProperty
  870.          ForeColor       =   &H00FFFF00&
  871.          Height          =   330
  872.          Left            =   1080
  873.          TabIndex        =   14
  874.          Top             =   3420
  875.          Width           =   375
  876.       End
  877.       Begin VB.Shape Shape2 
  878.          BorderColor     =   &H00FF80FF&
  879.          Height          =   690
  880.          Left            =   90
  881.          Top             =   3105
  882.          Width           =   1410
  883.       End
  884.       Begin VB.Image Life 
  885.          Height          =   375
  886.          Index           =   2
  887.          Left            =   630
  888.          Top             =   2520
  889.          Width           =   375
  890.       End
  891.    End
  892.    Begin VB.PictureBox Area 
  893.       Appearance      =   0  'Flat
  894.       BackColor       =   &H00C0FFFF&
  895.       BorderStyle     =   0  'None
  896.       DrawWidth       =   2
  897.       BeginProperty Font 
  898.          Name            =   "MS Sans Serif"
  899.          Size            =   8.25
  900.          Charset         =   0
  901.          Weight          =   400
  902.          Underline       =   0   'False
  903.          Italic          =   0   'False
  904.          Strikethrough   =   0   'False
  905.       EndProperty
  906.       ForeColor       =   &H000000FF&
  907.       Height          =   9030
  908.       Left            =   0
  909.       MouseIcon       =   "TrainSmallFrm.frx":09BA
  910.       MousePointer    =   99  'Custom
  911.       ScaleHeight     =   9030
  912.       ScaleWidth      =   10320
  913.       TabIndex        =   0
  914.       Top             =   0
  915.       Visible         =   0   'False
  916.       Width           =   10320
  917.       Begin PicClip.PictureClip BallBlow 
  918.          Left            =   6705
  919.          Top             =   3240
  920.          _ExtentX        =   5292
  921.          _ExtentY        =   5080
  922.          _Version        =   393216
  923.          Rows            =   4
  924.          Cols            =   4
  925.       End
  926.       Begin PicClip.PictureClip AniBall 
  927.          Left            =   6975
  928.          Top             =   1755
  929.          _ExtentX        =   2646
  930.          _ExtentY        =   1323
  931.          _Version        =   393216
  932.          Rows            =   2
  933.          Cols            =   4
  934.       End
  935.       Begin VB.PictureBox RPad 
  936.          Appearance      =   0  'Flat
  937.          AutoSize        =   -1  'True
  938.          BackColor       =   &H00000000&
  939.          BorderStyle     =   0  'None
  940.          BeginProperty Font 
  941.             Name            =   "MS Sans Serif"
  942.             Size            =   8.25
  943.             Charset         =   0
  944.             Weight          =   400
  945.             Underline       =   0   'False
  946.             Italic          =   0   'False
  947.             Strikethrough   =   0   'False
  948.          EndProperty
  949.          ForeColor       =   &H80000008&
  950.          Height          =   2085
  951.          Left            =   9990
  952.          ScaleHeight     =   2085
  953.          ScaleWidth      =   330
  954.          TabIndex        =   5
  955.          Tag             =   "Side"
  956.          Top             =   45
  957.          Width           =   330
  958.       End
  959.       Begin VB.PictureBox LPad 
  960.          Appearance      =   0  'Flat
  961.          AutoSize        =   -1  'True
  962.          BackColor       =   &H00000000&
  963.          BorderStyle     =   0  'None
  964.          BeginProperty Font 
  965.             Name            =   "MS Sans Serif"
  966.             Size            =   8.25
  967.             Charset         =   0
  968.             Weight          =   400
  969.             Underline       =   0   'False
  970.             Italic          =   0   'False
  971.             Strikethrough   =   0   'False
  972.          EndProperty
  973.          ForeColor       =   &H80000008&
  974.          Height          =   2085
  975.          Left            =   0
  976.          ScaleHeight     =   2085
  977.          ScaleWidth      =   330
  978.          TabIndex        =   4
  979.          Tag             =   "Side"
  980.          Top             =   0
  981.          Width           =   330
  982.       End
  983.       Begin VB.PictureBox BPad 
  984.          Appearance      =   0  'Flat
  985.          AutoSize        =   -1  'True
  986.          BackColor       =   &H00000000&
  987.          BorderStyle     =   0  'None
  988.          BeginProperty Font 
  989.             Name            =   "MS Sans Serif"
  990.             Size            =   8.25
  991.             Charset         =   0
  992.             Weight          =   400
  993.             Underline       =   0   'False
  994.             Italic          =   0   'False
  995.             Strikethrough   =   0   'False
  996.          EndProperty
  997.          ForeColor       =   &H80000008&
  998.          Height          =   330
  999.          Left            =   0
  1000.          ScaleHeight     =   330
  1001.          ScaleWidth      =   2085
  1002.          TabIndex        =   3
  1003.          Tag             =   "Top"
  1004.          Top             =   8685
  1005.          Width           =   2085
  1006.       End
  1007.       Begin VB.PictureBox TPad 
  1008.          Appearance      =   0  'Flat
  1009.          AutoSize        =   -1  'True
  1010.          BackColor       =   &H00000000&
  1011.          BorderStyle     =   0  'None
  1012.          BeginProperty Font 
  1013.             Name            =   "MS Sans Serif"
  1014.             Size            =   8.25
  1015.             Charset         =   0
  1016.             Weight          =   400
  1017.             Underline       =   0   'False
  1018.             Italic          =   0   'False
  1019.             Strikethrough   =   0   'False
  1020.          EndProperty
  1021.          ForeColor       =   &H80000008&
  1022.          Height          =   330
  1023.          Left            =   0
  1024.          ScaleHeight     =   330
  1025.          ScaleWidth      =   2085
  1026.          TabIndex        =   2
  1027.          Tag             =   "Top"
  1028.          Top             =   0
  1029.          Width           =   2085
  1030.       End
  1031.       Begin VB.PictureBox Ball 
  1032.          Appearance      =   0  'Flat
  1033.          AutoRedraw      =   -1  'True
  1034.          AutoSize        =   -1  'True
  1035.          BackColor       =   &H00000000&
  1036.          BorderStyle     =   0  'None
  1037.          DrawStyle       =   1  'Dash
  1038.          Enabled         =   0   'False
  1039.          FillColor       =   &H0000FFFF&
  1040.          BeginProperty Font 
  1041.             Name            =   "MS Sans Serif"
  1042.             Size            =   8.25
  1043.             Charset         =   0
  1044.             Weight          =   400
  1045.             Underline       =   0   'False
  1046.             Italic          =   0   'False
  1047.             Strikethrough   =   0   'False
  1048.          EndProperty
  1049.          ForeColor       =   &H80000008&
  1050.          Height          =   375
  1051.          Left            =   5085
  1052.          ScaleHeight     =   375
  1053.          ScaleWidth      =   375
  1054.          TabIndex        =   1
  1055.          Top             =   4455
  1056.          Width           =   375
  1057.       End
  1058.       Begin VB.Label GameStory 
  1059.          Alignment       =   2  'Center
  1060.          AutoSize        =   -1  'True
  1061.          BackStyle       =   0  'Transparent
  1062.          BeginProperty Font 
  1063.             Name            =   "Times New Roman"
  1064.             Size            =   15.75
  1065.             Charset         =   0
  1066.             Weight          =   400
  1067.             Underline       =   0   'False
  1068.             Italic          =   0   'False
  1069.             Strikethrough   =   0   'False
  1070.          EndProperty
  1071.          ForeColor       =   &H0000FF00&
  1072.          Height          =   2085
  1073.          Left            =   2895
  1074.          TabIndex        =   9
  1075.          Top             =   3555
  1076.          Width           =   5970
  1077.          WordWrap        =   -1  'True
  1078.       End
  1079.       Begin VB.Shape Limit 
  1080.          BackColor       =   &H00000000&
  1081.          BorderColor     =   &H0000FF00&
  1082.          Height          =   8370
  1083.          Left            =   315
  1084.          Top             =   315
  1085.          Visible         =   0   'False
  1086.          Width           =   9675
  1087.       End
  1088.    End
  1089. Attribute VB_Name = "TrainFrm"
  1090. Attribute VB_GlobalNameSpace = False
  1091. Attribute VB_Creatable = False
  1092. Attribute VB_PredeclaredId = True
  1093. Attribute VB_Exposed = False
  1094. ' This Form Loads Up if the Display is 800x600 '
  1095. '______________________________________________'
  1096. ' There is info on what each GENERAL sub does above it '
  1097. '______________________________________________________'
  1098. Dim ExitBounce As Boolean
  1099. Dim StartTime As Date
  1100. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1101.  'UnHighlight labels
  1102.  UnHighlight Story
  1103.  UnHighlight Start
  1104.  UnHighlight Quit
  1105. End Sub
  1106. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  1107.  Reset_Click
  1108.  Call StopSounds(True, True)
  1109.  ExitBounce = True
  1110.  Call StopSounds(True, True)
  1111. End Sub
  1112. Private Sub Form_Unload(Cancel As Integer)
  1113.  Call StopSounds(True, True)
  1114. End Sub
  1115. Private Sub GameStory_Change()
  1116. With GameStory
  1117.  .Left = Int(Me.Width - Info.Width) / 2
  1118.  .Top = Int(Me.Height / 2)
  1119.  .Left = .Left - Int(.Width / 2)
  1120.  .Top = .Top - Int(.Height / 2)
  1121.  .Refresh
  1122. End With
  1123. End Sub
  1124. Private Sub Info_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1125.  UnHighlight Reset
  1126. End Sub
  1127. Private Sub InfoArea_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1128.  X = Int(Area.Width - (BPad.Width / 2))
  1129.  Call Area_MouseMove(Button, Shift, X, Y)
  1130. End Sub
  1131. Private Sub OK_Click()
  1132.  Reset_Click
  1133.  StatBox.Visible = False
  1134. End Sub
  1135. Private Sub OK_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1136.  Highlight OK
  1137. End Sub
  1138. Private Sub Quit_Click()
  1139.  ExitBounce = True
  1140.  WAVPlay "exit.qbs"
  1141.  Unload Me
  1142. End Sub
  1143. Private Sub Quit2_Click()
  1144.  Call Quit_Click
  1145. End Sub
  1146. ' Duh, Centres Commet'
  1147. '____________________'
  1148. Public Sub CentreBall()
  1149.  Ball.Visible = False
  1150.  Ball.Top = Int((Me.Height + Ball.Height) / 2)
  1151.  Ball.Left = Int(Int((Area.Width - Info.Width) / 2) - Int(Ball.Width / 2))
  1152. End Sub
  1153. ' Resets the game    '
  1154. '____________________'
  1155. Private Sub Reset_Click()
  1156.  WAVPlay "exit.qbs"
  1157.  ExitBounce = True
  1158.  ExitBounce = True
  1159.  LoadScoreTraining
  1160.  LoadTimeTraining
  1161.  CentreBall
  1162.  TitleScreen.Visible = True
  1163.  Area.Visible = False
  1164.  LifeTxt(1).Caption = ""
  1165.  LifeTxt(2).Caption = ""
  1166.  LifeTxt(3).Caption = ""
  1167.  LivesLeft = 3
  1168.  XSpeed = CmdSpeedParam
  1169.  YSpeed = CmdSpeedParam
  1170.  For i = 1 To 3
  1171.   Life(1).Visible = True
  1172.  Next i
  1173.  TopTime = "00:00:00"
  1174.  TimeSoFar = "00:00:00"
  1175.  OldTime = "00:00:00"
  1176.  TotalTime = "00:00:00"
  1177.  Score = "0"
  1178. End Sub
  1179. Private Sub Reset_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1180.  Highlight Reset
  1181. End Sub
  1182. Private Sub Start_Click()
  1183.  WAVPlay "start.qbs"
  1184.  Area.Visible = True
  1185.  Area.Cls
  1186.  TitleScreen.Visible = False
  1187.  LoadScoreTraining
  1188.  LoadTimeTraining
  1189.  LivesLeft = 3
  1190.  XSpeed = CmdSpeedParam
  1191.  YSpeed = CmdSpeedParam
  1192.   For i = 1 To 3
  1193.    Life(i).Visible = True
  1194.    LifeTxt(i).Caption = ""
  1195.   Next i
  1196.  TopTime = "00:00:00"
  1197.  TimeSoFar = "00:00:00"
  1198.  OldTime = "00:00:00"
  1199.  TotalTime = "00:00:00"
  1200.  Score = "0"
  1201.  Ball.Visible = False
  1202.  GameStory = "Ready"
  1203.  Delay 0.8
  1204.  GameStory = "GO!"
  1205.  Delay 0.6
  1206.  GameStory = ""
  1207.  Ball.Visible = True
  1208.  ExitBounce = False
  1209.  Bounce
  1210. End Sub
  1211. Private Sub Start2_Click()
  1212.  StoryScreen.Visible = False
  1213.  Call Start_Click
  1214. End Sub
  1215. Private Sub Start_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1216.  UnHighlight Quit
  1217.  UnHighlight Story
  1218.  Highlight Start
  1219. End Sub
  1220. Private Sub Quit_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1221.  UnHighlight Start
  1222.  UnHighlight Story
  1223.  Highlight Quit
  1224. End Sub
  1225. ' This Ub Loads up Top Scores From The Registry '
  1226. '_______________________________________________'
  1227. Private Sub ShowStats()
  1228. TotalScore = Val(Score)
  1229. TopSpeed = FastSpeed
  1230. TotalBounces = NumBounces
  1231. HighTime.Caption = TopTime
  1232. AllTime.Caption = TotalTime
  1233. StatBox.Visible = True
  1234.  If TotalScore > Val(GetKeyValue(HKEY_LOCAL_MACHINE, _
  1235.   "SOFTWARE\arvisehmi\QuadBall\Training", "TopScore")) Then
  1236.   On Error Resume Next
  1237.   InputWindow.Visible = True
  1238.  End If
  1239. Dim TmpOldHigh As String
  1240. Dim OldHigh As Date
  1241.   TmpOldHigh = (GetKeyValue(HKEY_LOCAL_MACHINE, _
  1242.   "SOFTWARE\arvisehmi\QuadBall\Training", "TopTime"))
  1243.   OldHigh = TmpOldHigh
  1244.   If TotalTime > OldHigh Then
  1245.    On Error Resume Next
  1246.    InputWindow2.Visible = True
  1247.   End If
  1248. Reset_Click
  1249. End Sub
  1250. Private Sub StatBox_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1251.  UnHighlight OK
  1252. End Sub
  1253. Private Sub Story_Click()
  1254.  On Error GoTo a:
  1255.  ThisDir
  1256.  Shell "QuadBall.Exe " & Trim(Str(CmdSpeedParam)), vbNormalFocus
  1257.  Reset_Click
  1258.  Unload Me
  1259.  MsgBox "Cannot Find QuadBall.Exe," & Chr(13) & "Please Re-install This Game To Fix The Problem." & Chr(13) & _
  1260.         "If You Can Find QuadBall.exe On Your PC," & Chr(13) & "Please Place It In The Directory:" & Chr(13) & _
  1261.         App.Path, vbCritical, "Error"
  1262. End Sub
  1263. Private Sub totalbounces_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1264.  UnHighlight OK
  1265. End Sub
  1266. Private Sub label8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1267.  UnHighlight OK
  1268. End Sub
  1269. Private Sub Story_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1270.  Highlight Story
  1271.  UnHighlight Start
  1272.  UnHighlight Quit
  1273. End Sub
  1274. Private Sub TitleScreen_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1275.  ExitBounce = True
  1276.  UnHighlight Start
  1277.  UnHighlight Story
  1278.  UnHighlight Quit
  1279. End Sub
  1280. Public Sub RefreshForm()
  1281.  Me.Show
  1282.  Me.Refresh
  1283.  Area.Refresh
  1284.  TitleScreen.Refresh
  1285.  Info.Refresh
  1286. End Sub
  1287. Private Sub Area_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1288.  ' This Controls Where The Paddles GO
  1289.  If Reset.Tag = "yes" Then UnHighlight Reset
  1290.  TPad.Left = Int(X - (TPad.Width / 2))
  1291.  BPad.Left = TPad.Left
  1292.  RPad.Top = Int(Y - (RPad.Height / 2))
  1293.  LPad.Top = RPad.Top
  1294. End Sub
  1295. Sub Form_Load()
  1296.  Load TrainLoadUp
  1297.  TrainLoadUp.Visible = True
  1298.  ExitBounce = True
  1299.  Area.Visible = False
  1300.  LivesLeft = 3
  1301.  XSpeed = CmdSpeedParam
  1302.  YSpeed = CmdSpeedParam
  1303.  LoadScoreTraining
  1304.  LoadTimeTraining
  1305.  LoadTitlePics
  1306.  LoadGamePics
  1307.  Unload TrainLoadUp
  1308.  Show
  1309.  RefreshForm
  1310. End Sub
  1311. ' Load All The Game Pictures  '
  1312. '_____________________________'
  1313. Private Sub LoadGamePics()
  1314.  If GamePicsLoaded = True Then Exit Sub
  1315.  Call LoadPic(Area, "Space.Img")
  1316.  Call LoadPic(Info, "QBallI.Img")
  1317.  Call LoadPic(AniBall, "Ball.Img")
  1318.  Call LoadPic(TPad, "TBPad.Img")
  1319.  Call LoadPic(BPad, "TBPad.Img")
  1320.  Call LoadPic(LPad, "LRPad.Img")
  1321.  Call LoadPic(RPad, "LRPad.Img")
  1322.  Call LoadPic(BallBlow, "BallBlow.Img")
  1323.  Call LoadPic(Life(1), "Planet1.Img")
  1324.  Call LoadPic(Life(2), "Planet2.Img")
  1325.  Call LoadPic(Life(3), "Planet3.Img")
  1326.  Call LoadAniPic(Ball, AniBall, 0)
  1327.  GamePicsLoaded = True
  1328. End Sub
  1329. ' Load All The Title Screen Pictures  '
  1330. '_____________________________________'
  1331. Private Sub LoadTitlePics()
  1332.  If TitlePicsLoaded = True Then Exit Sub
  1333.  Call LoadPic(TitleScreen, "QBallT.Img")
  1334.  Call LoadPic(StatBox, "QBallS.Img")
  1335.  UnHighlight Start
  1336.  UnHighlight Quit
  1337.  TitlePicsLoaded = True
  1338. End Sub
  1339. ' Spins The Ball (Comet)              '
  1340. '_____________________________________'
  1341. Public Sub SpinBall(Direction)
  1342. Static BallCell As Single
  1343.  Select Case Direction
  1344.   Case Clock
  1345.    BallCell = BallCell + 0.5
  1346.    If Int(BallCell) = 8 Then BallCell = 0
  1347.    Call LoadAniPic(Ball, AniBall, Int(BallCell))
  1348.   Case AntiClock
  1349.    BallCell = BallCell - 0.5
  1350.    If Int(BallCell) = -1 Then BallCell = 7
  1351.    Call LoadAniPic(Ball, AniBall, Int(BallCell))
  1352.  End Select
  1353. End Sub
  1354. ' This Is The Most Important Sub.    '
  1355. ' It Tells The Ball How To Bounce,   '
  1356. ' To Increase In Speed, To Add To    '
  1357. ' The Score And To Test If The Ball  '
  1358. ' Has Been Missed By The Player      '
  1359. '____________________________________'
  1360. Public Sub Bounce()
  1361. Static BallXCent As Integer, BallYCent As Integer
  1362. Static Bounces As Integer
  1363. GetSpeed
  1364. If ExitBounce = True Then GoTo Nd2: ' See if the game has started
  1365. Ball.Visible = True
  1366. ' Set The Ball To it's Round Shape
  1367. Call SetWindowRgn(Ball.hWnd, CreateEllipticRgn(0, 0, (Ball.Width / Screen.TwipsPerPixelX), (Ball.Height / Screen.TwipsPerPixelY)), True)
  1368. StartTime = Time
  1369. DoEvents
  1370. Ball.Left = Ball.Left + XSpeed
  1371. Ball.Top = Ball.Top + YSpeed
  1372. BallXCent = Int(Ball.Left + (Ball.Width / 2))
  1373. BallYCent = Int(Ball.Top + (Ball.Height / 2))
  1374.  If Ball.Top <= Limit.Top And YSpeed < 0 Then
  1375.   TPadLeft = TPad.Left
  1376.   TPadRight = Int(TPad.Left + TPad.Width)
  1377.   If BallXCent > TPadLeft And BallXCent < TPadRight Then
  1378.    Call WAVPlay("Hit.qbs")
  1379.    YSpeed = -YSpeed
  1380.    AddScore
  1381.    GoTo nd:
  1382.   Else
  1383.    Die
  1384.   End If
  1385.  ElseIf Ball.Left <= Limit.Left And XSpeed < 0 Then
  1386.   LPadTop = LPad.Top
  1387.   LPadBottom = Int(LPad.Top + LPad.Height)
  1388.   If BallYCent > LPadTop And BallYCent < LPadBottom Then
  1389.    Call WAVPlay("Hit.qbs")
  1390.    XSpeed = -XSpeed
  1391.    AddScore
  1392.    GoTo nd:
  1393.   Else
  1394.    Die
  1395.   End If
  1396.  ElseIf Int(Ball.Left + Ball.Width) >= Int(Limit.Left + Limit.Width) And XSpeed > 0 Then
  1397.   RPadTop = RPad.Top
  1398.   RPadBottom = Int(RPad.Top + RPad.Height)
  1399.   If BallYCent > RPadTop And BallYCent < RPadBottom Then
  1400.    WAVPlay ("Hit.qbs")
  1401.    XSpeed = -XSpeed
  1402.    AddScore
  1403.    GoTo nd:
  1404.   Else
  1405.    Die
  1406.   End If
  1407.  ElseIf Int(Ball.Top + Ball.Height) >= Int(Limit.Top + Limit.Height) And YSpeed > 0 Then
  1408.   BPadLeft = BPad.Left
  1409.   BPadRight = Int(BPad.Left + BPad.Width)
  1410.   If BallXCent > BPadLeft And BallXCent < BPadRight Then
  1411.    Call WAVPlay("Hit.qbs")
  1412.    YSpeed = -YSpeed
  1413.    AddScore
  1414.    GoTo nd:
  1415.   Else
  1416.    Die
  1417.   End If
  1418.  End If
  1419. If Bounces = 15 Then
  1420.  If XSpeed > 0 Then SpinBall Clock Else SpinBall AntiClock
  1421.  Bounces = 0
  1422.  Dim TempTime As Date
  1423.  TempTime = Time - StartTime
  1424.  TimeSoFar = TempTime
  1425.  TotalTime = OldTime + TempTime
  1426.  '-----------------
  1427.  'AUTO
  1428.  '-----------------
  1429.  'TPad.Left = Ball.Left - (TPad.Width / 2)
  1430.  'BPad.Left = TPad.Left
  1431.  'LPad.Top = Ball.Top - (LPad.Height / 2)
  1432.  'RPad.Top = LPad.Top
  1433. End If
  1434. Bounces = Bounces + 1
  1435. Loop Until ExitBounce = True
  1436. StopSounds True, True
  1437. Ball.Visible = False
  1438. End Sub
  1439. 'This Is Activated When The Player Misses The Ball '
  1440. '__________________________________________________'
  1441. Public Sub Die()
  1442.  ExitBounce = True
  1443. ' decrease the lives
  1444.  LivesLeft = LivesLeft - 1
  1445.  BlowUpBall
  1446.  Dim TempTime As Date
  1447.  TempTime = TimeSoFar
  1448.  OldTime = OldTime + TempTime
  1449.  Debug.Print LivesLeft; "  "; OldTime
  1450.  'See which planet has been destroyed
  1451.  Select Case LivesLeft
  1452.   Case 2
  1453.    GameStory = "Ready"
  1454.    Delay 0.8
  1455.    GameStory = "GO!"
  1456.    Delay 0.6
  1457.    GameStory = ""
  1458.    LifeTxt(3).Caption = "X"
  1459.    If TempTime > TopTime Then TopTime = TempTime
  1460.   Case 1
  1461.    GameStory = "Ready"
  1462.    Delay 0.8
  1463.    GameStory = "GO!"
  1464.    Delay 0.6
  1465.    GameStory = ""
  1466.    LifeTxt(2).Caption = "X"
  1467.    If TempTime > TopTime Then TopTime = TempTime
  1468.   Case 0
  1469.    LifeTxt(1).Caption = "X"
  1470.    If TempTime > TopTime Then TopTime = TempTime
  1471.    ShowStats
  1472.    Exit Sub
  1473.  End Select
  1474.  CentreBall
  1475.  YSpeed = CmdSpeedParam
  1476.  XSpeed = CmdSpeedParam
  1477.  GetSpeed
  1478.  ExitBounce = False
  1479.  TimeSoFar = "00:00:00"
  1480.  Bounce ' start bouncing if earth is not dead
  1481. End Sub
  1482. ' Animate the ball dissolving '
  1483. '_____________________________'
  1484. Public Sub BlowUpBall()
  1485.  Ball.Visible = True
  1486.  Dim i As Integer
  1487.  WAVPlay "blowup.qbs"
  1488.  Area.Cls
  1489.  Area.Refresh
  1490.  For i = 0 To (BallBlow.Rows * BallBlow.Cols) - 1
  1491.   Call LoadAniPic(Ball, BallBlow, i)
  1492.   Ball.Refresh
  1493.   Call Sleep(0.1)
  1494.  Next i
  1495.  CentreBall
  1496.  Call LoadAniPic(Ball, AniBall, 0)
  1497. End Sub
  1498. ' Sub Which Adds The Total Score Up '
  1499. '___________________________________'
  1500. Sub AddScore()
  1501. On Error GoTo ScoreTooHigh
  1502.  Call IncSpeed
  1503.  Call GetSpeed
  1504.  Dim AveSpeed As Integer
  1505.  AveSpeed = Int(XSpeed + YSpeed) / 2
  1506.  If AveSpeed < 0 Then AveSpeed = -AveSpeed
  1507.  Score = CLng(Val(Score) + CLng(5 * AveSpeed))
  1508.  If Val(Score.Caption) > 99999 Then Score.FontSize = 16
  1509.  NumBounces = NumBounces + 1
  1510.  Exit Sub
  1511. ScoreTooHigh:
  1512.  Score.FontSize = 14
  1513.  Score = "Maxed Out"
  1514.  End Sub
  1515. ' Sub Which Gets The Current Speed Of The Ball'
  1516. '_____________________________________________'
  1517. Public Sub GetSpeed()
  1518.  Dim TempX, TempY
  1519.  TempX = XSpeed
  1520.  TempY = YSpeed
  1521.  If TempX < 0 Then TempX = -TempX
  1522.  If TempY < 0 Then TempY = -TempY
  1523.  CommetSpeed = Val(Int((TempX + TempY) / 2))
  1524.  If Val(CommetSpeed) > FastSpeed Then FastSpeed = Val(CommetSpeed)
  1525. End Sub
  1526.